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LAP is a LISP FEXFFL (or iSUftrl when compiled.) which is executed 
primarily for its side effect — namely assembling a symbolic listing 
Into core as a mchinfi language subroutine, As such, it is about the 
most con*lent and rapid way for a LISP user to add machine language 
primitives to the LISP ays ten, especially if the functions in question 
are in a developmental stage and are reasonably small (e*r* i-50fi 
Instructions), Also, the LISP compiler currently aivas its result as a 
file of LAP code, which may than he loaded into core tty LAP* 

Yirtually any function dlefinitlon, whether hy DtFP^OP, IAEEL, or 
LAP, is an extension Of LlSP's primitives; and as in ary actual 
programming language* the side^effects and plot® 1 interactions are often 
of primary Importance* Because of this, and because of the inherently 
broader range of machine Instructions and data formats, a function quite 
easily described and written in PLP-£ machine larg-uage ;ay accomplish 
what is only most painfully and. artificially written in LISP* Dne must, 
then, consider the total amount of code in each language to accoaplish a 
given task, the aaouiit of comuentaiy necessary to clarify the intent of 
the task given the program (in this sense* LISP code rates very high -- 
a major benefit of the confines of lisp is that a food program serves as 
Its own comment, and usually needs no farther elucidation}, and other 
considerations of programming convlenee. 

Superienee has shown that m&ny such subroutines cay be assembled 
by a smell system, l*e* one such as the current LAP, without conditional 
assembly, macro, or sophisticated literal rereration features* These 
latter three features are the major differences in language between LAP 
and MILAS; the major operational differences are (l) UP is one-pass and 
MILAS is two, (2) UP uses the LISP PEAL function while MIDAS is more 
efficient, and (?■) UP ass arables directly into the binary prog ran space 
of the LISP system using it while MIDAS files its assembly on a 
peripheral device {which must then be loaded tty S-TIMFv or the ITS version 
of DDT}* Ibus one must consider the scope of hit task in relation to 
the language desired and the operational ease preferred* 

Unfortunately neither LAP nor the system reported la A* I, memo 
ltu 12? solves the problem of loading and running arbitrary binary 
proprEjrs Jointly with LISP* Something 1 like a runtime priaitlve STE^K Is 
needed for LISP, and such may have to wait- for farther development in 
the Bultiprogramminf capabilities of the PPP-G systems* 

It Is assumed that the user of PDP-6 up is familiar with A*L 
Memoranda lbs. 116A and 144, which outline the use of the MAC PPP-6 
LISP* 
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go urn up usacs 


A call to UP is even a little more non-standard than. indicated 
In the ijitroduction in that not all the aufluments are Ltic3Lxid#i| in the 
5-expression which commences assembly -- LAP repeated]} 1 tails REAP, 
operating on the U-expraslons read-in {from the current input device and 
file)* until 5- NIL Is encOUnterd* at which time assembly is terminated. 
Duly after successful termination of assembly is BPOPG updated and the 
correct fla^ (S1J3P, rSUBfi or LSUM) inserted on the property list of the 
atoms which name the newly assembled functions. Thus a call to LAP 
would look like the sequence 

[UP POO SUM) 

[DEFSYH A 1) 

[FTLR3 A„ 0(A)) 

(POP3 P) 

HI L 

instead of the following written in a hypothetical style after 7090 LAP 

{LAP {(POO SUBS 2 ) 

{ HUZ A. 0(A)) 

{POPJ P)) 

{{HLRZ * 554.37 *J 
{POPJ * £?*) 

(A * 1) 

(p . urn 

T^e aost serious drawback to the latter style is the strain placed on 
free storage* since the entire expression would have to be in core 
before eralualion could bepiii. 

Hence evaluation of (LAP name indicator) or (LAP nnme indicator 
address update) begins a LAF assembly for a function vlth name "nase” of 
type "indicator” {such as SUSS* ISUER, or I3UEE} and with entry point 
the first looatioa assembled into; if the second form le used* assembly 
begins in the core location "address” instead of BPOHU* Ordinarily at 
assembly terairation* BPORC is set to the address folic* tap; the last one 
assembled into by LAP, tut if "update” is SIL, EPORG is undisturbed, 

LAP acts on the quantities It reads as follcwsi 

mm m 

ML 

Terminate assembly and return* literal generated 
constants are assembled into core, symbol 
definitions from EET5TK are flushed, and worthless 
atoms are removed froft the oblisl. A common error 
is to forget that carriage return and U-OFara not. 
atom braeV: characters; fflt should be fc 1 loved tj 1 a 
space* 
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atom 

Assign "aton" an assembly symbol value equal to tbs 
address of the current assembly location no 
additional assembly takes place, Thus one uses 
atoms for systolic location tags and under certain 
conditions these naves are entered in BBT's symbol 
table {&ee below), 

(EfSSYH a to* sexp . * * atom texp > 

Assign ’’aton "an assembly symbol value equal to 
(E7AL serf ); 5io additional asembly takes place,. and 
these n&aes are not entered into BET'S symbol table, 

(SNOT naneS) 

Sets up "nanaS" at a function of type Indicated in 
the call to LAP and with enty point the current 
assembly location; no further assembly takes place, 
(COKHEOT ltst-fragnent) 

ft a neat technique, no unnecessary atoms remain, on 
the oblist after assembly; however, during assembly, 
there must be enough full word space to ho 14 print 
names for all the atoms and to hold tlie numerical 
values of a few LISP numbers. 

(IVAL seip * , 4 sexp ) 

The expressions "sexp " to "sexp " are evaluated, in 
order left to right, but otherwise no assembly takes 
place, General computations and side effects may 
take place here, but caveat emptor cannot be too 
strongly intoned, 

{sywbgls t-or^Eii 1 ) 

IftL turns off and n&n-NlL turns on the Dtp feature 
which pastes alow symbolic location names to the 
job symbol, table; currently all symbols so entered 
are treated as global, but at some time In the 
future this may be modified to permit flexible 
duplication of symbols In several programs* If the 
SfyBOIS pseudo-op appears anywhere lp an assembly, 
then the names of functions tluis defined will be 
tram bitted to TUT. JME GELEi Although LISP atoms 
may he composed from upwards of so characters, those 
used as tags which are entered in tlie symbol table 
should Include only upper-case letters and digits, 
and only the first six characters of the atom's 
PttAJG are relevant to this feature, 

U) 

(x ; list-fragment) 

X (which Is not among lEpSVk, ENTRY, COMMENT, ETAL, 
or STM30IS) Is evaluated by LAPEVAL and the 
rojaericEtl result stored In the- current assembly 
location, which is then advanced ty one* Ibr the 
Leaning of LArETAL, see the next section on assembly 
constituents, *'li31-fragment" ie ignored and may 
serve as commentary (tee note above for COHHENT), 
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(* y) 

(k y ; list-fragment) 

feie as Immediately above, tut f LETT f LA PETAL y) 23 J 
, . l£ added Into the stored result, 

U y z) 

(a y z ; list fragment) 


(x y z w) 

{x y 1 V i 


same as immedlately above, tut (BOOLE 1 (UPE7AL t) 
777777) is added into the stored result, Esrwferd 
reference symbols may appear only in the z 
that is, if a symbol is used before it is 
It must be used only in the address pert of 
instruction. 


field; 
defined, 
the 


list-fragment) 


Same as immediately above, tut the numerical value 
of (LAFEYAL v), treated a$ a SS-Ut quantity is 
swapped left-half for right and then added into the 
stored result, 

LA? initially checks whether or not the atom * is a member of the list 
forming the assembly word, and if so sets the indirect bit [bit 12) "and 
deletes the from the Indicated assembly; thus an ' does not count as 
one of x, y, t f or w. 


j thlt is a st f»Tip similarity between UP format 

and KIMS format, an essential difference tel rip that lap processes 

*5 orderM - len-tc-ri*]rt, to determine which is the 
AC field, which the address field, and which the index field, cine crust 
remember that the LISP read routine Imposes a certain dissimilarity In 
text for the two assembler** since "space*, 'leonm* "left parea", and 
rirht paren arc the only break characters for atom names. ]fcnce 
6 wc« are necessary on both sides of a semi-colon or at-step when they 
are used as described above* and the AC field may not be odmltted in 
Instructions like ({? ADDRESS), Ibe index field need not te 

enclosed in parentheses as in MIMS, Utt in general there la no term in 
doing: so (see anycther list" on paye 7), 


mm ME IRHO^ HElTfHWB 

Ibrnally* after terminating as&eably* LA^ returns a list 
containing the current value of EPQRG, and the names of the subroutines 
.lust assembled (there may be store than one entry for the routine 
assembled* the principle entry is declared in the call to LAP and other* 
may te declared by means of the pseudo-opera lion EllTET) if after 
atsenbly, some referenced symbols remain undefined, the message "USDE? 
SYKBQLS”, followed te thE offending atone, will be printed out ' if 
there were any multi pie-defined symbols, "AtfBIG SYMBOLS" is printed 
alony with a list of the offenders. One particular disaster caught hr 
UP is indicated by the message "BlKAET PROGRAM SPACE EXHAUSTER 

Since UP uses so many free variables (and for several other 
reasons), one should allow a call to UP to exit by itself rather tten 
0topping It with "G or some other ruse. 
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fech of the parts of an assembly word y, z, &r w) is 
evaluated by LAPEVAL, lti the context of the assembly* The assembly 
quantities otiose CAS Is among DEPSYM, E7AL, CQMMEifl, and SYMFGIS, may be 
termed pseuds)-ops in that they do not give rite to an assembly word 'tut 
merely give directions to the assembler* sand f are treated specially 
by UP and are not considered to be assembly constituents. 


CJJANTin 

VilDF. 

number 


HU 

Pi xed-point numbers always evaluate to tbeaselves. 
Floatingpoint numbers in an address field, may 
produce Itendom Results, 

* 

Same as (QUOTE UIL), 

atom 

The address of the current assembly location. "feme 
as * in MIMS. 

(Q^OT^E sexp) 

2icept for \ t *, anU NIL* all a tens evaluate to 

their assembly symbol value; l.e, (GE? (QUOTE a tot 
{ QUOTE SYM)), 

{SPECIAL atom) 

(HAKWUM (QUOTESexp) {QUOTE HXlIUM}). Ibr example, 

(MOVE I 1 , (QUOTE (SMALL LIST)) ) as Ambles into an 
instruction which noves a pointer to the list 
(SMALL LIST) into accumulator 1, 

( EUMCTItl!* atom) 

Provides a pointer to the value cell of “atom”. 
Thus (M0VE1, {SPECIAL POOH mom the value of POO 
into 1 instead of & pointer to PQQ* &b would happen 
if (QUOTE POO) were used* In addition 
(MOTE 1, (SPECIAL BAH)) 

(M07EM 1, (SPECIAL SCO).) 

accomplishes in a SUBR what (SETQ POO BAR) does in 
an EXPPL 

(£ x y z v) 

Ibsen tially the same as (QUOTE stem), hjt Is used to 
emphasize that ^tom™ is used as a function name 
(aee section on UUQ instructions), 

literal generation feature, like {j. y, z {w)) in 
MILAS, Assembles {x y e w) as described above and 
provides the address thereof. Similarly, the fora 
{5 x), (S i y] f (it * y 2 .) nay be used, A literal 
constant is restricted to the j-field (or address 
field) of a LAP insturction t but may appear nested 
tc any finite depth, ^r example* (MOVE 1, {% 1*0)) 
moves a machine floating joint number into 3 
whereas (MOTEI l, (QUOTE 1,0)) moves a LISP number. 
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In this case LAPETAl merely suns the LAFETAL of 
each member of the list, Rir example (JSST 0 (■ 
?*)) is equivalent to JSST *«■$ In Mims, and 

< MOTE l’ 4 AJ &ss * mbl * s iMo thE £ ^e thins 


as 


fl ff -s M2 ugo HETflucTiyKi 

aT1 ***!“!! ® f # . tlu! m|,rtnt inefficiency of the LAP symbol table, not 
all IDT 6 instructions are predefined, hit only those listed in the 

f p5 * £l ^ x# a KiT&n C* 11 to LAP, the pseud-op EEFSYM say be used 

jddlUjnal laatnictlons as well as ether local symbols which 
are then flushed after assembly termination, A top level function ops 

M “""‘ leflnltl - - * — 

< OFE a ton sexp * # , atoft smj> } 

*5™ the same action as DElSTM, Tut these definitions are not flushed 
SliiutiHSJi t0 Uee discussion of REhLAP on paft Sunder 

wkv^ ^ * Permanent definitions may be temporarily reset ty 
DEfSTH, and upon term!nation LA? will restore the previous values* 

Smr uUQ (trapj instructions are predefined in Uf which 
provide the means for LA? assembled code to call otter LISP functions " 
TUe form for calling EIPE's p StfBSfs, FEXPE's, and mm'$ in * 

{CALL n { FUNCTION atom)) 

vhere Us 17 if "Atea* la a lSUKt or TEXPP and the ardent is in 

t^ C v^£f t0 I 1? n ls “WAl t£) the number of arguments when calling a EUEft 
or Expaand may not be greater than five. The arguments should be 

placed successively in accumulators i to 5* Tb call'an LSUSR, place a 

Kl nt S the r e ^ rn a ? dfess on the PEL, followed the agents to 
iht function, Last on top; place in accumulator fi the negative of the 
number of arguments* Ihen do 

f JCAU 16 (TOTOHOIP atom)). 

Met only must a LAP coded routine obey these conventions* hit 
may else expect to find Its arguments, in each came, as described. 
Accumulators 1 through 7 are the only ones available for use within a 
subroutine, which ia expected to return a value in accumulator 1: 
tew ever accumulator 14 (P) is still Used as the system rush down lit! 

- * „ T 611 * P? ls executed, the system win call the Interpreter 'if 

atom does not have a SUBfl or FEU 3 S flag on its property list’ If it 

riut>™r er Y s ^,?'* l “ 1,111 eI t cut6 a PTSiU an she C*M of CALL ood 
,L. - \ l " ‘^,J 1Se cf JCALI Bn<i to *« appropriate 

code. In favorable conditions, the TO] Instruction will actually be 

changed t in core, to a ptlSHJ or JBST, ’ait in no case ls CALIF or JCALLF 
ever chawed. The 7 forms are need to insure that the interpreter will 
conditions Such as ealliiw a JtTflASG. Evaluating 
flDOUO T) Inhibits, the ins true tlon-modifV feature so that trace! nr may 
be utilised during program checkout. 
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(l) Hove typfl tractions 


fSQVE MDVHI HOYZH MTU! E1CR M.OYSS 


(iij Iklf-word 

aiflS SiHrtZ HHRM HELM HS3IS tfLLZS HRLZI 

(Li) Conditional bra rich 

JEST JUMPS JUHPiJ JS T 

SKlPH SKI PE SOJS SOJI ipSl 

CAlt CAI >3 CAT IE CAMS CAMS' CAMLE 


(l¥) Arithmetic 

ADD SUB A DM AUDI SUBl IMULI 


(v) Stack 

PUSH FUSHJ POP POPJ 


(Hi) two 

CALL JCALL CALLF JCALLP *CALL 

(vii) Htcellaneous 

DPB LLP CLEAfiM CLBARB SETOM 
TD3A ?!/] TRNE AUDI 


(Till) Other symbol definition 

P INUK SPECBIHD SPECSTf) tfJHTAL FLOAT FLSlA HE 


AVAILABILITY 

A symbolic version of LAP is found on the tape called LISP STS 
*5 file ETfcLSH IAF P and will some times reside on the COMMON disk under 
the scot rate.. LAP actually bootstraps some critical portions of Itself 
as SU3S s and requires about PSD (octal) cells of binary program space. 
LAP occupies a larpe amount of tEorafe t and operates mere quickly when 
plerit ^ of full-Mord siacfi available* A top-level function 
HSMUP Is provided to reclaim some of the storage consumed fey LAP and 
its peculiar atoms — (HEMlAP) will remove the Lxfr's. and TEIPfl's 
(except for OPS and K1MLAP) hit leave permanent symbol definitions 
intact; (REMLAP T) RU^Olfe about 100 atoms peculiar to LAP and all atoms 
with a STM property; (REHLAF my merely removes the 5YM property from 
any atom which has one. 

A compiled version of LAP exists on the LISP SYS tape as file 
C LtP, which nine about twice as fhst as the symbolic version (much time 






Is spent In REAS and hetrte the time savings of compiled code is no* sn 
larval „ This version requires about 1S50 foetal) cells of birarv 
program pee, and performs fmUPj after toot&traplrr in the greater 

& trass. up fu,c,io " s « "*■ *•««» *• wi: 

gronr- J ily th tJ UP W included with another 

n?P ^ftim UBF ? utt "f s * whl<!h viU ** * »rt of the standard 

etill uncertain. Vhi ^ ** eielsei np4flr pregran control. Bit this Is 




(Ml C UP COM.) 
COM 

imDnc/ lap 
BBCI^ BOOTSTRAP 
W FHASl/ 2 
HASHED 

fUREACi LAP XMPL PH) 

m 

% 

UMDSF SYMBOL'S 
f KLRHE&H} 

AM BIG SfUJOlE 
fURLM) 


(®372 DPADD EJSCNTRI) 


Ses next rape for lie tins. dltbmwh we fere inadvertently 


!*«“ 4 ®w. "Ulch ti already predefined to UP, there is nothin) to £ 
concerned about, since The a estate ’lamble symbols" merely indicates that 

* tT ^ 1 W 1 "'* MUi was re3et w*e-SlT»»i SJtSei tl 

1U top -eve^ state alter tend nation. In this eass ao rhaiu^ at fi n 


was effected, Th$ "undef symbols" message helps us to find ^ * 


all 
an error -* 


the incorrect spelling of SL5VBSNT on line 10. 

line r VSP" Is printed by DDT upon its return Co nan tn^t- 
after iJiaVlnf; additions to the Job symbol table, i^e cymUiB t'-HTirTi 
were MSSWBI, DISTOP, m, I, HUWS. id mk traejalUad 



UA? DlSCNTRL *U9Rl 
{SYMBOLS T \ 

IDEF9YW H*LW 900*33 AOSE 333*33 
A I 0 31 

IJUttPC A p DI STOP) 

(HDVEI Bp if QUOTE 31)8*11 
1CALL 2 fFUNCTION QCTl) 

(WOVE k, -UAl) 

1NRRM Aj I } 

(CLEARS Q M|_RMD3N 1 0 MEANS STORE NEXT IN LEFT) 

{MOVE I k t 3DIi? * DISPLAY PARAMETER YrOPpI 
{JRST 0 6TR J 
DI ST DP tPySHJ P# ST») 

(MOVGt A m 3000 X STOP CHARACTER) 

XIT 4JRST 0 ST«) 

I 101 

MLFfcDSW 40) 

< SYMBOLS NtU 
(ENTRY DPAOD) 

tsuer a. u 

tANOJ Ap 17T7) 

IJUMPE Bp CKX I 0 MEANS X QUANTITY) 

4 ADD 1 A. 220000) 

ISKIPN D HLFNOSR 1 NQNlfRO MEANS Y) 

IJRST 0 SftPl) 

STR (AOSE 0 HtfupSwj 

4 JRST Q 4*41) 

4 HPRM P A*t ) 

4ADSE 0 U 
-*N IPDPJ Pi 

i NRLN A# p I J POSITION of * IN LIST DOESNT MATTER) 
ISETQM 0 HLFwS&NI 
(POPJ P) 

CKX fADD] A. 220001 

4SKJPN 0 HLFNDSM) 

4JRST 0 STR1 
IAOSE 0 J ) 

SKPl IAOSE 0 HLfwCSW) 

I siTOM 0 HLFH0SW) 

IJ&ST 0 STR) 


NIL 


